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SERIES 60 (LEVEL 6) 


GCOS/BES2 
BASIC Interpreter 


The Level 6 GCOS/BES2 BASIC Interpreter is a 
simple, easy-to-learn, all-purpose programming 
language. 

The BASIC Interpreter provides an interactive/ 
conversational environment in which a user can 
compose, edit, debug, and execute programs writ¬ 
ten in the Level 6 BASIC language. In addition, 
BES2 BASIC, with its program library and data 
file facilities, provides for program execution in a 
nonconversational, “production” mode of opera¬ 
tion, which includes loading previously prepared 
programs from a disk library file and reading and 
writing sequential data files (also stored on disk) 
during the execution of the programs. 

FEATURES 

• Complete source program maintenance 

• Data file processing language features 

• Data file interchange with Level 6 FORTRAN 
programs 

• Multiple statements per line 

• Immediate statement execution for interactive 
programming and debugging 

• Multidimensional arrays 

• Unrestricted subscript expressions 

ADVANTAGES 

• Mature, standardized language 

• Easy-to-learn, easy-to-use 

• Fast debugging 

• Useful for general problem solving and elemen¬ 
tary production applications 

• Smooth, simple interface with other BES2 
facilities 

MODES OF OPERATION 

The BES2 BASIC Interpreter can be used in three 
generally distinct modes of operation: 

• Interactive problem solving 

• Production program building/checkout 

• Production program execution 


Interactive problem solving is normally a short¬ 
term activity in which the user composes a small, 
“one-shot” program to solve a current, often urgent 
problem. In accomplishing this, the interactive, 
conversational facilities of BES2 BASIC are heavily 
used: composing, editing, and storing program 
statement lines in memory, trial execution of 
sequences of these lines, and immediate execution 
of individual statements for experimental and de¬ 
bugging purposes. 

Production program building/checkout is a longer- 
term activity involving the development of a larger, 
permanent program to be executed usually at regu¬ 
lar intervals in the future. In this mode of opera¬ 
tion, a disk library is used for external storage and 
retrieval of the source program being built, and 
sample data files can be created to test the proper 
execution of the program logic. The facilities 
described for interactive problem solving are, of 
course, also available in this mode. 

Production program execution requires only mini¬ 
mal user/operator involvement and interaction. 
After loading the BES2 BASIC Interpreter and 
requesting the desired program from the disk/ 
diskette library file (via the OLD command), the 
operator begins execution by typing “RUN.” 
During execution, a program performs reads from 
and writes to data files on disk/diskette volumes, 
or accepts data input from the operator console 
device. 

PROGRAM EDITING FACILITIES 

The BES2 BASIC Interpreter contains a full range 
of elementary editing functions to create and 
change a stored source program. To add or insert 
a new line into an already existing stored program, 
the user types the appropriate new line number 
followed by one or more BASIC statements sepa¬ 
rated by backslashes (\). To replace an existing 
line, the user types its line number, followed by 
the new statement(s). To delete an existing line, 
the user types its line number, followed by a car¬ 
riage return. To correct errors while typing a line, 
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the user types the standard BES2 line deletion and 
character de ;Lon characters. 

BASIC PROGRAMMING EXAMPLES 

The following four examples utilize different 
techniques to solve for one of the two roots of 
the equation: 

X 2 + 2X - 4 = 0 

The root is: 

ROOT = ~ B + ^ A. 2 

where A = 1, B = 2, C =-4 

The BES2 BASIC Interpreter supplied the under¬ 
scored responses: 

1. Use of READ and DATA Statements for 
Variables 

7 NEW 

READY 

7 10 READ A,B,C 

7 20 LET X=(-B+(B a 2-4*A*C) a 0.5)/2*A) 

7 30 DATA 1,2 ,-A 
7 40 PRINT "ROOT IS",X 
7 50 END 
7 RUN 

ROOT IS 1.23607 

50 EXIT 
READY 

2. Use of Data Constants 
?_NEW 

READY 

7 10 LET X=(—2+(2 a 2—4* 1 *(—4)) a ,5)/(2*1) 

7.20 PRINT "ROOT IS",X 
?^30 END 
1_ RUN 

ROOT IS 1.23607 

30 EXIT 
READY 

3. Use of INPUT Statement 
_? NEW 

READY 

7 10 INPUT A,B,C 

?^20 LET X=(—B+{B A 2-4*A*C) A .5)/(2*A) 

M0 PRINT "ROOT IS",X 
ISO END 
2 RUN 
11,2,-4 

ROOT IS 1.23607 

50 EXIT 
READY 

4. Use of Arithmetic Calculator Loop 


READY 

7 10 INPUT IVPRINT l\\GO TO 10 
7 RUN 

7_(—2+(2 a 2—4*1 *(—4)) a ,5)/(2*1) 

1.23607 

? 

LANGUAGE SUMMARY 

A BES2 BASIC program consists of a set of state¬ 
ments, normally terminated by an END statement. 
Each line (containing one or more statements) in a 
stored program in memory must be numbered. 
Unnumbered statements are executed immediately. 
Table 1 lists the major constituents of the BES2 
BASIC language. The angular and square brackets 
in the table represent variables and optional 
elements, respectively. 

LET and GOTO are the assignment and control 
transfer statements, respectively. GOSUB is a sub¬ 
routine call, and the RETURN statement defines 
the return point from the subroutine which was 
called. IF ... THEN allows a single relational 
operator between expressions, and control passes 
to the statement number following the THEN if 
the relation is true. NEXT is used to terminate the 
range of the FOR statement and must use exactly 
the same variable as in the FOR statement. If the 
third expression in a FOR statement is omitted, it 
is assumed to be 1. The expression in the ON 
statement is evaluated and truncated to an integer. 
For expression =1, control is transferred to the first 
statement number in the list; for expression =2, 
control is transferred to the second statement num¬ 
ber in the list, etc. 

READ assigns to the listed variables the values 
obtained from a DATA statement. The latter is 
used to specify all the values needed for the vari¬ 
ables. For output, the user can specify variable 
names or literals; the literals are enclosed within 
quotation marks. Thus, if X is 625, the statement 

PRINT “THE SQUARE ROOT OF” X, 

“IS” SQR (X) 

causes the following to be printed: 

THE SQUARE ROOT OF 625 IS 25. 

For normal printing purposes, the output line is 
divided into five zones of 13 spaces each. The user 
can change the width of these zones, however, 
through the use of commas and semicolons. A 
PRINT statement without anything following 
signals a new line. 

The program terminates with the END statement; 
STOP returns BASIC to the command mode. 

DIM is used to specify numeric variable subscripts 
whose values are not equal to 10, and to specify 
the size of string variables when the default size is 
not desired. DATA specifies numeric and string 
values to be accessed by READ statements. 
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RESTORE returns the current pointer to the first 
value of the first DATA statement in the program. 
An INPUT statement types a question mark and 
the program waits for the user to type in the data 
items requested in the INPUT list. 

Functions are defined by the DEF statement; the 
function name consists of the letters FN followed 
by a single letter. Any expression which fits on one 
line can be used to define a function. The expres¬ 
sion may even include other functions. 

RANDOMIZE gets a new “seed” from the real¬ 
time clock for use by the RND random number 
function. OPTION STRINGSIZE specifies a default 
size for all character strings, when the default 
desired is not the standard 18. 

REM statements are nonexecutable and are used 
to enter comments and explanations in the pro¬ 
gram listing. 

FILES specifies all data files which are to be proc¬ 
essed in the program, and implicitly assigns a 
numeric designator to each, for use in the other 
data file statements. 

SCRATCH# logically clears the specified data file, 
and opens it for output. WRITE# puts the speci¬ 
fied data values out onto the data file. READ# 
brings in input items from the data file and assigns 
them to the variables listed. RESTORE# reposi¬ 


tions the data pointer to the first item in the data 
file and opens it for input. IF END# specifies the 
processing path to be taken when an end-of-file 
condition is reached on the input data file. 

Statements, control commands, built-in functions, 
and diagnostics are summarized in Tables 1 —4. 
These and other language and programming con¬ 
siderations are described in detail in the BES2 
BASIC Reference Manual, Order No. AU44. 

SYSTEM REQUIREMENTS 
Minimum equipment required: 

• Level 6 central processor with 16K words of 
memory 

• Dual diskette unit 

• KSR teleprinter or compatible console 

Optional equipment: 

• 16K additional words of memory 

• Additional dual diskette unit 

• Cartridge disk units 

Related software: 

• Runs under the BES2 operating environment, 
with 16K words of memory 


Specifications may change as design improvements are introduced. 


Table 1. BASIC Language Summary 


[LET] <variable> [,<variable>]... = Cexpression> 

INPUT Cnumeric/string variable> [.Cnumeric/string variable>]... 

IF Cexpression> <relation> <expression> qq jq j” Cline number> 

PRINT Cnumeric/string expression> , Cnumeric/string constant>... 

DIM Cuariable> (Cinteger> [,Cinteger>]...)... 

GOTO Cline number> 

DEF FNCIetter> (Cunsubscripted variable» = Cexpression> 

GOSUB Cline number> 

RANDOMIZE 

RETURN 

OPTION STRINGSIZE Cinteger> 

FOR Cunsubscripted variable> = Cexpression> TO Cexpression> STEP Cexpre$sion> 

REM Cany string of characters> 

NEXT Cunsubscripted variable> 

FILES Cfile name> [;Cfile name>]... 

ON Cexpression> GOTO Cline number> , Cline number>... 

SCRATCH#Cinteger expression> 

STOP 

WRITE#Cinteger expression> , Cnumeric/string expression> , Cnumeric/string constant>... 

END 

READ#Cinteger expression> , Cnumeric/string variable> [.Cnumeric/string variable>]... 

DATA Cnumeric/string constant> , Cexpression>... 

RESTORE#Cinteger expression> 

READ Cnumeric/string variable> [,Cnumeric/string variable>]... 

RESTORE 

IF END#Cinteger expression> qqjq^ Cline number> 


Table 2. Control Commands 


OLD Cprogram name> 

Loads named program from disk library 
into current program area in memory, 

LIST Cline number> 

Lists current program beginning at line 
number specified. 


and clears data area. 

LIST Cline number> , Cline number> 

Lists current program beginning at first 

NEW [Cprogram name>] 

Clears current program and data area in 
memory, and sets current program name 


line number specified and ending with 
last line number specified. 


as specified. 

SAVE [Cprogram name>] 

Writes current program on disk library. 

NAME [Cprogram name>] 

Changes current program name as 


using program name specified. 


specified. 

RESAVE [Cprogram name>] 

Replaces named program on the disk 

CLEAR 

Clears data area only in memory. 


library with current program. 

RUN [Cline number>] 

LIST 

Starts execution of current program, 
beginning at lowest-numbered line or at 
line number specified. 

Lists entire current program on 
teletypewriter. 

QUIT 

Exits from BASIC Interpreter environ¬ 
ment, returning control to BES2 Command 
Processor. 






Table 3. Built-in BASIC Functions 


Function 


Function 


Reference 

Mathematical equivalent 

Reference 

Mathematical equivalent 

SIN(X) 

sin (x) 

INT(X) 

The largest integer less than or equal to the 


The trigonometric sine of the argument x. 


argument x. 

COS(X) 

cos (x) 


INT (+1.5) = 1 


The trigonometric cosine of the argument x. 


INT (-1.5) = -2 

TAN(X) 

tan (x) 

SGN(X) 

The sign of the.argument x. 


The tangent of the argument x. 


X<0, SGN(X) = -1 

ATN(X) 

tan" 1 (x) 


X=0, SGN(x) = 0 


The arctangent of the argument x. 


X>0. SGN(X! = 1 

EXP(X) 

ex 

SQR(X) 

vTx, where x ^ 0 


The exponential function. 


The positive square root of the argument x, 

LOG(X) 

log e (x) 


where the argument must be greater than or 


The logarithm to the base e of the argument x. 


equal to zero. 

ABS(X) 

X 

RND 

A random number with a value between 0 


The absolute value or magnitude of the 


and 1. 


argument x. 



NOTE: The argument x is expressed in radians. 




Table 4. 

Diagnostic Error Codes 

AF 

1o data files attached but FILES statement found 

MO 

Memory overflow 


AS 

C? 

CO 

DA 


DL 

DP 

DV 

DZ 

FD 

FI 

FN 

FO 

GS 

1C 

ID 

IV 

LG 

LI 

LO 

MA 


Array subscript out of bounds 

Unexpected character (c) found 

Close data output file problem 

Attempt to READ more data than available (in 

DATA statement or data file) 

Data file numeric designator error: not integer, not 

in range, or not defined 

Statement terminator error 

Two decimal points in number 

Dummy variable in DEF statement subscripted 

Division by zero 

Invalid delimiter in FOR statement 
Data file input problem: output file only or hard¬ 
ware problem 

Characters FN misplaced in DEF statement 

Data file output problem: cannot open or hardware 

problem 

GOSUBs nested more than eight deep 
Incorrect condition in IF statement 
Illegal statement or variable name 
Illegal index variable in FOR statement 
Negative logarithmic function argument 
Library input file not attached or not present 
Library output file not attached or not present 
Mixed assignment: string assigned to or compared 
with numeric variable 


M, Missing or misplaced comma 

M= Missing or misplaced equals sign 

M) Missing or misplaced right parenthesis 
M( Missing or misplaced left parenthesis 
NO Numerical overflow 

NU Numerical underflow 

NX NEXT statement has no matching FOR 
ON Nonpositive expression in ON statement, or missing GOTO 
OS OPTION STRINGSIZE format error 

PD Illegal item delimiter in PRINT statement 
RF READ#format error: missing comma after file 
number 

RT RETURN statement found outside of subroutine 

SF SCRATCH# format error 

SL String length specified over 60 characters 
SN Statement number error (range 1 to 9999) 

SO String overflow 

SQ Negative square root function argument 
TH THEN or GOTO left out of IF statement 
TX Missing or misplaced quotation marks 

UF Undefined function 

UM Unitary minus error 

US Undefined statement number 

UV Undefined variable 

WF WRITE#format error 
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